Revert "* which-key.el (which-key--partition-list): Replace cl-subseq by take"
authorJustin Burkett <justin@burkett.cc>
Tue, 23 Apr 2024 13:20:28 +0000 (09:20 -0400)
committerJustin Burkett <justin@burkett.cc>
Tue, 23 Apr 2024 13:20:28 +0000 (09:20 -0400)
This reverts commit 94a29cda9f75c9901667bf45ff25bd8c892cb416.

which-key.el

index 1ece569e7edfc9e0ae8246b0167f025b0525b92b..0e14c76df950b497a458fb735651c0fc64abd320 100644 (file)
@@ -2016,7 +2016,7 @@ that width."
   "Partition LIST into N-sized sublists."
   (let (res)
     (while list
-      (setq res (cons (take (min n (length list)) list) res)
+      (setq res (cons (cl-subseq list 0 (min n (length list))) res)
             list (nthcdr n list)))
     (nreverse res)))